home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XSTRIP.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  254b  |  15 lines
  1. {$IBoDecl}
  2. {$IStrip}
  3. {$IPutStr}
  4.  
  5. BEGIN
  6.  
  7.    ClrScr;
  8.    S := '   111222333444$444333222111   ';
  9.    PutStr (h, s, 1,1,14);
  10.    read;
  11.    PutStr (h, strip (strip ( strip ( strip (strip ( S,
  12.               ' ') ,'1'),'2'),'3'),'4'),1,2,14);
  13.  
  14. END.
  15.